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1 . ABSTRACT 

The PDP-9 Punch Test is designed to test and verify the operational status of the punch control 
logic, and the mechanical functions of the punch . A series of six tests is performed on the punch control, 
followed by nine tests on the punch itself » Provision is made to continuously loop on three of the six 
punch control tests, and any one of the punch data tests. 

2. REQUIREMENTS 

2.1 Equipment 



Standard PDP-9 computer 

2.2 Storage 

The program occupies 3403 fi words of core memory from location to 3403, 

2.3 Preliminary Programs 
(None required) 

3. LOADING PROCEDURE 



The tape supplied is punched in HRI mode. Set the ADDRESS SWITCHES to 00000. Press 
I/O RESET, and then READ-IN. 

4. STARTING PROCEDURE 



4.1 Control Switch Settings 
All ACS down . 

4.2 Starting Addresses 



4.2.1 Logic Tests - 21 



4.2.2 Data Checks- 1000 



4.2.3 Restarting Addresses - Restarting addresses for individual tests may be found in table 2, 
appearing at the end of this document. 
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4,3 Program Action 

Unless operating in 'scope mode, the program will first execute tests 1 through 4 in sequence 
using punch IOT PSA, and then repeat tests 2 through 4 using punch IOT PSB, A halt occurs after 
testing with PSB with the PC - 324. The punch NO TAPE flag is then tested. If the test is successful, 
the program halts with C(PC) = 346. The 1-sec delay is then tested by starting test 6 at location 400. 
A halt occurs with C(PC) = 41 6, if the test is successful . 

The data check tests are then executed by starting at location 1000. There are nine data 
checks in all, each punching a different pattern . As one test is completed, the next is automatically 
started. When data test 9 is reached, the program will run until stopped by the operator. 

5. OPERATING PROCEDURES 



5.1 Operational S witch Settings 

All ACS down. 

5 .2 Subroutine Abstracts 



5.2.1 Control Logic Tests 

5.2.1 .1 Control Logic Test 1 - Illegal Instruction - Starring at location 21, test 1 first turns off the 
real-time clock, and then issues an I/O power clear (CAF). An illegal IOT of 7001 1 is then given. 
A stall of 70 msec is then done, followed immediately by a test of the punch flag . The punch flag 
should not be set at this point. If no error halts occur, test 2 is automatically executed. 
An error halt occurs with PC = 43 (fagged PE01 ) if the punch flag is set. 

5.2.1 .2 Control Logic Test 2 ~ Set Punch Flag with PSA and PSB - The program first deposits a PSA 
IOT in location 51 . Location 51 will be used by tests 2 through 4 by the use of an XCT instruction. 
Location 51 is changed to contain PSB at the end of test 4 for the second pass through logic tests 2 
through 4. Test 2 then executes location 51 (PSA or PSB) and waits approximately 4 seconds for the 
punch to get up to speed before testing the punch flag . Test 2 is executed twice before going on to 

test 3. 

An error half occurs with the PC = 70 (tagged PA02) if the flag was not set using PSA. If the 
flag was not set using PSB, a halt occurs with the PC = 71 (tagged PB02) . 
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5.2.1 .3 Control Logic Tes t 3 - Reset Punch Flag with PSA, PSB and PCF - Test 3 first sets the punch 
flag by executing the IOT in location 51 (PSA or PSB). After the flag has been set, location 51 is 
immediately executed again in an attempt to clear the flag. If successful, the same procedure is 
again performed, and the flag is cleared using the IOT PCF. If no errors, test 4 is executed. 

Error halts occur if the flag cannot be cleared . If the PC = 1 1 4 (tagged PA03), PSA did not 
clear the flag. With the PC = 115 (tagged PB03), PSB did not clear the flag. A halt with the PC = 
140 (tagged PE04) indicates PCF did not clear the flag. 

5.2.1 .4 Control Logic Test 4 - Punch Interrupt Test - Test 4 first issues an I/O power clear (CAF), and 
then enables program interrupt. A stal I of approximately 21 msec is performed . No interrupt should 
occur during this period . If an interrupt was caused by the punch or some other device, a spurious 
interrupt causes a halt with the PC = 240 (tagged P05A) . An interrupt from the punch causes a halt 
with the PC = 242 (tagged P05B). At either location, C(AC) = the I/O status. 

If the above test is successful, a program interrupt using the punch is attempted. An I/O 
power clear is issued, the interrupt enabled, and location 51 (PSA or PSB) executed. If the test is 
successful, a check is made to determine if tests 2 through 4 have been using PSA or PSB. If using 
PSA, the IOT PSB is deposited into location 51 , and test 2 is automatically executed . If PSB, test 5 
is automatically executed. 

If no interrupt occurs, an error halt occurs with the PC = 227 (tagged PA05) when using PSA. 
A halt with the PC = 230 (tagged PB05) occurs if using PSB. If an interrupt occurred, but not from the 
punch, a halt occurs with the PC - 254 (tagged P05C) . The AC will contain the I/O status word. 

5 .2.1 .5 Control Logic Test 5 - No Tape Test - Test 5 begins by issuing an I/O power clear (CAF), 
and then testing whether the NO TAPE indicator (bit 9 of I/O status word) is set even though there is 
tape in the punch . The punch POWER switch is assumed to be ON . If the test is successful, a program 
halt occurs with the PC = 324 (tagged PHLT1 0) ."**— 

An error half occurs if the NO TAPE indicator is set. The PC will equal 315 (tagged FLGNOT). 

After the halt at PHLT10, the operator must remove the tape from the punch. Pressing 
CONTINUE will cause the program to test the no-tape condition. If the NO TAPE indicator is not set, 
an error halt occurs with the PC = 341 (fagged NOFLG) . If the test is successful, a program halt occurs 
with the PC = 346 (tagged HLT10A). 

The punch POWER switch is then tested. Tape is replaced in the punch, and the POWER 
switch placed to OFF . Test 5 is then re-executed by pressing CONTINUE . If successful, a halt occurs 
with the PC = 346 (HLT10A). If the NO TAPE indicator is not set, an error halt occurs with the PC = 
341 (NOFLG). 
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The POWER switch is then turned to ON before starting test 6, if the test is successful. 

5.2.1 .6 Control Logic Test 6 - 1 -Second Timing Check - With the punch at a dead halt, the punch 
flag should be set no less than 1-sec after selecting the punch. This condition is tested by selecting 
the punch with PSA, and then entering a 1-sec timing loop. The punch flag is monitored during this 
time, and an error halt occurs with the PC = 41 3 (tagged EA08), if the flag is set before the exit from 
the timing loop . 

fvj* . If the test is successful, a half occurs with the PC = 41 6 (PRHLT6) . 

>n~ ®*~ Test 6 is the last test in the series of logic tests. Starting the data check tests is then man- 

ually executed from location 1000. 

5.2.2 Data Check Test 1 through 9 - The data check tests provide nine different patterns. Each 
pattern was chosen to check for a specific type of failure, i.e., skew, feed hold registration, ability 
to punch all channel combinations, etc. 

The data punched is also read by the reader. The paper tape is fed directly from the punch 
to the reader. The reader is always approximately 192 frames (1 eight-bit character = 1 frame) behind 
the punch. In all tests, except test 1, 5 and 6, 15 blocks (1 block = 64 frames) of one pattern is 
punched and read before proceeding to the next test. One block is punched, and then the program 
reads one block of information, checking for errors. Test 1 tests the ability of the punch to punch 
all 0s. Only 5 blocks of 0s are punched. Tests 5 and 6 both use program interrupt in order to read at 
punch speed. The total number of frames punched and read is the same as with tests 2 through 4, and 
tests 7 and 8. Test 9 punches random block lengths with random stalls between blocks. Maximum 
block length is 64 frames. The data is read only after 64 frames have been punched. 

The rate of punch speed may be controlled by ACS 4 through 17 during all tests except tests 
5, 6 and 8. ACS 4 through 17 up will give the slowest rate; all ACS down, normal rate (50 characters/ 
sec) . 

Provisions are provided to halt on error, resync reader and punch after an error, loop on otiv 
one of the nine tests, and 'scope mode for any test. 

During all punching and reading operations, both the reader and punch NO TAPE indicators 
are monitored . If either indicator sets, a printout occurs indicating which device is out of tape. This 
feature may also be regarded as <j test of the NO TAPE indicators, but it is included mainly as a guard 
against tape jams in the punch, resulting in torn tape. 
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5.2.2.1 Test 1 - Punch All Os - Five blocks of all Os are punched and read . Any channel punched 
will cause an error condition . 

5.2.2.2 Test 2 - Skew Check - Fifteen blocks are punched using channels 1 and 8 only. The pattern 
consists of 1 block of channel 1 only, followed by 1 block of channel 8 only . The object is to attempt 
to make the tape skew in the punch tape guides. Error indications will appear as either channel 8 or 
channel 1 dropping completely as a result of the feed-holes not being aligned correctly (latitudinal ly) . 

5 .2.2.3 Test 3 - All Channels - Fifteen blocks of all channels are punched . This pattern tests the 
punch's ability to punch all channels for a prolonged period. 

5.2.2.4 X§iL^_r_^ildjr^jOne - Each channel is punched individually starting with channel 1, and 
punching each channel in sequence up to and including channel 8. Channels 7 through 1 are then 
punched in sequence . 

The type of error expected with this test is two channels (adjacent) being punched. This test 
may also show errors from tape skev 



3W , 



5 .2 .2.5 Tests 5 and 6 - Sliding Zero - Both tests use program interrupt in order to read at punch 
speed. This provides start/stop type of action with the reader, which will more readily show feed-hole 
errors. Elongated, or poorly aligned feed holes will probably cause the reader sprocket to skip, which 
will put the program out of sync and cause an error condition. 

Test 5 punches all but one channel, dropping a different channel each frame - similar to test 

4 but using Os instead of Is. 

Test 6, in addition to providing a test of feed-hole alignment, tests the ability of the punch 
to drop one channel after punching a series of a 1 1 Is. 

Seven frames of all Is are punched, and then one channel is dropped. The type of error 
expected is when the dropped channel continues to punch, even though it was not selected. 

The resulting pattern is similar to test 5, but with seven frames of all Is between each 
dropped channel . 

5 .2,2.6 Test 7 - Punch Binary Count With PSA - Testing all combinations of channels using a binary 
count pattern is done with PSA. Fifteen blocks are punched, the reader checking the data after each 
block . 
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5.2.2.7 Test 8 - Binary Count With PSB - Similar to test 7 except channel 7 should never be punched . 
Fifteen blocks are punched, the reader checking the data after each block . 

5.2.2.8 Test 9 - Random Punch and Stall - Random block lengths are punched, with random stall times 
between blocks. The reader will not check the data until after 64 frames have been punched. 

The pattern generated is alternate frames of all Is and all Os. 
This test runs continuously until stopped by the operator. 

5.3 Operating Instructions 

a. Place the HRI tape in the reader. 

b. Place all ACS down, and set the ADDRESS SWITCHES to 00000. 

c. Press I/O RESET, and then READ-IN. The program will halt after loading with 
PC = 3367, and MB = 740040. 

d . Set the ADDRESS SWITCHES to 21 . 

e. Press I/O RESET, and then START. If no errors, the program will halt with PC = 324. 

f . Remove the tape from the punch . 

g. Press CONTINUE. If no errors, the program will halt with PC = 346. 
h. Replace the tape in the punch. 

i. Turn punch POWER OFF. 

j. Press CONTINUE. If no error, the program will halt with PC = 346. 

k . Turn punch POWER ON . 

I . Set the ADDRESS SWITCHES to 400. 

m. Press I/O RESET, and then START. If no error, the program will halt with PC = 416. 

n. The data check tests are performed next. 

5.4 Data Check Tests 

ACS functions for each of the nine tests are: 

ACS_ FUN CTION 

0(1) Halt after error printout 

1 (1) 'Scope mode, inhibit reading 

2(1) Loop on current test 

3 (1) Resync reader and punch after each error 

4-17 May be used to vary rate of punching with all tests 

except 5, 6 and 8 
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ACS up will cause a halt with the PC = 2752, Press CONTINUE to recover . The 
program will continue in sequence. 

ACS 1 up will cause the current test to be repeated until stopped by pressing 
PROGRAM STOP. Reading is inhibited during 'scope mode. 

ACS 2 up will cause the current test to be repeated until stopped with PROGRAM 
STOP. Placing ACS 2 down while running will let the program go on to the next 
test after completing the current one. 

ACS 3 up will enable the program to resync the punch and reader after an error, or 
error halt . 
Blank leader is punched, with a sync character at the end of the leader. The reader takes 
up the slack while the leader is being punched. 

After the resyncing operation a halt occurs with PC = 3212. At this point pressing CONTINUE 
will restart the test which was being performed, or the operator may restart another test. 

ACS 0, 2 and 3 may be used together. In this case ACS has priority over 2 and 3, ACS 3 
has priority over ACS 2. 

5.4.1 Error Printouts - Any error encountered will cause an error printout in the format shown below; 

N GOOD XXX BAD XXX 

Where; N = Test number (1 through 9) 

GOOD = What the data read was expected to be 
BAD = The data as read 

Also, no-tape conditions will give a printout thus: 

R NO TAPE (R = Reader) 

P NO TAPE (P = Punch) 

The ACS have no control over these printouts. The program continues on in sequence after 

either printout . 

5.4.2 Operating Instructions 

a. Set the ADDRESS SWITCHES to 1000. 

b. Press I/O RESET, and then START. 

c. Approximately 1 -1/2 ft of leader will be punched . The leader is blank except for 
one frame of all Is. This frame is referred to as the MARK character, and has nothing 
to do with the internal operation of the program . 
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After punching the leader, a halt occurs with PC = 1004 (PRHLT7). 

By placing the MARK character directly over the reader drive sprocket, the correct 
amount of slack will be maintained through the sequence of nine tests. 

Starting at address 1000 may be used in lieu of ACS 3, if desired, then manually 
restarting the desired test. 

d. Press CONTINUE after placing the MARK in position. 

e. The program will do each test in sequence. 

f. When test 9 is reached, the program will run until stopped with PROGRAM STOP. 

g. The program punches more tape than the reader's out-hopper will hold comfortably. 
It is suggested that the operator let the tape run freely from the reader into a waste 
basket. 

h . The operator is not restricted to using the MARK character or resync features to 
position the tape between the punch and reader. The slack should not exceed more than 
2 ft between the devices, nor less than that provided by the resync routines or MARK 
character. A guide would be to never start with leader long enough to touch the 
bottom of the punch hopper after positioning it in the reader. Also, be sure the leader 
is blank . 



6. ERRORS 



6.1 Error Halts and Description 

All halts are described in table 1 . 

6.2 Error Recovery 

Recovery from error halts during any of the control logic tests is accomplished by pressing 
CONTINUE. The current test will be re-executed. 

Recovery from error halts during any of the data check tests is done by pressing CONTINUE, 
The program will continue in sequence. 

7. RESTRICTIONS 

7.1 Starting Restrictions 

MAINDEC 9A-D2CB-PH High Speed Reader Test must show the reader to be completely 
error-free before attempting to run the data check portion of this program . 
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7.2 Operating Restrictions 

Any device other than the reader, Teletype, or punch must be turned OFF, to avoid 
unwanted interrupts. 

8. MISCELLANEOUS 



Execution Time 



If looping on control logic tests 2 through 4, the time per pass is approximately 7 sec. 
Data check tests 1 through 8 will require approximately 2 min. 

8.2 Applications- Control Logic Tests 

8.2.1 'Scope Mode - 'Scope mode for any of the control logic tests may be entered by placing 

ACS 1 up after an error half and pressing CONTINUE. 

Restarting a test with ACS 1 up will also provide 'scope mode. The starting addresses for 
each test and the procedure to follow is given below. 

Test * ' Scope IOT Operator Action Starting Address 

Press I/O RESET, then START. 21 

Press I/O RESET, then START. 52 

Place 700244 in location 51 . 54 

Place 700204 in location 51 . 1 00 

Place 700244 in location 51 . 1 00 

Place 700204 or 700244 in location 57. 1 30 

4 'Scope for punch interrupting before 200 

it is selected . 

4 PSA 'Scope for no interrupt. Place 700204 213 

in location 51 . 

4 PSB 'Scope for no interrupt. Place 700244 213 

in location 51 . 

5 'Scope for NO TAPE always set. 300 
5 NO TAPE will not set. 324 

5 NO TAPE not set with POWER off. 324 

6 No 'scope mode available. Punch must 400 

be at a complete halt before re-executing 
the test. S.A. = 400. 



1 

2 


PSA 


2 


PSB 


3 


PSA 


3 


PSB 


3A 


PCF 
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8.2.2 Fast 'Scope Mode Loop - A separate routine is provided which will punch any character 

specified by ACS 10-17. The loop uses PSA only, but this may be changed by inserting PSB (700244) 
into location 3102. The loop consists of six instructions, of which the first isCAF. 

The purpose of the routine is to provide a very short loop for 'scoping if the methods pre- 
viously described are not suitable . 

Instructions: 

a. Set the ADDRESS SWITCHES to 3100. 

b. Place any character in ACS 10-17. 

c. Press I/O RESET, and then START. 

d. The loop may be halted with PROGRAM STOP. 

e. ACS 10-17 may be changed while the loop is running. 

8.2.3 Looping on Control Logic Tests 2-4 - Tests 2 through 4 may be continuously executed to 
facilitate testing the control logic with power supply margins. 

Looping with either the PSA or PSB IOT is provided. 
To loop on tests 2 through 4 using PSA: 

a. Place ACS 2 up. 

b. Set the ADDRESS SWITCHES to 44. 

c. Press I/O RESET, and then START. 

d. The loop may be halted with PROGRAM STOP. 
To loop on tests 2 through 4 using PSB: 

a. Place ACS 2 up. 

b. Set the ADDRESS SWITCHES to 270. 

c. Press I/O RESET, and then START. 

d. The loop may be halted with PROGRAM STOP. 

8.2.4 Punch Speed Checks - A routine is provided to give decimal printouts of either the punch 
speed in characters per second, or the acceleration time in milliseconds. 

The accuracy of the printout is dependent on the accuracy of the PDP-9's memory cycle time, 
The accuracy of the loop itself is less than .5% for acceleration time, and the accuracy for speed is 
±1 character per second . 
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Operating Procedure: 

a. Set the ADDRESS SWITCHES to 500. 

b. Place ACS 6 up for characters/sec, or ACS 7 up for acceleration time. 

c. Press I/O RESET, and then RESTART. 

d. The routine may be halted with PROGRAM STOP. 

To compute characters/sec, the program punches tape for 8 seconds. The number of punch 
flags received is divided by 8, converted to decimal, and printed. 

The acceleration time is computed by selecting the punch once and counting the number of 
passes required through a 100 psec loop before the flag is set. 

8.4 Applications - Data Check Tests 

8.4.1 Variable Punch Speed Control - ACS 4 through 17 will provide speed control with data check 

tests 1 , 2, 3, 4, 7 and 9. With alM4 ACS up, the speed will be the slowest. Normal speed is restored 
by placing ACS 4-17 down . 

Any combination of the 1 4 switches may be used, any may be raised or lowered while the 
program is running . 

ACS 4 through 1 7 have no effect on the program while test 5, 6 or 8 is running . 

9. PROGRAM DESCRIPTION 

The PDP-9 Punch Test is designed to test the functions of the punch control logic with minimum 
operator intervention. One timing test is performed, and a 'scope loop is included in the program to aid 
in making any other mechanical or timing adjustments necessary. If the control logic tests run on normal 
and nominal power supply voltages, any remaining errors will be in the data paths. 

The data check tests are designed to aid in finding mechanical failures in the punch itself. 
There are nine data check tests in all, each punching a different pattern. 
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TABLE 1 ERROR HALTS AND IDENTIFICATION 

Suggested 
Test Ho: C(PC) Tag Identification Module 

"i 43 PE01 Punch flag set after IOT of 700110 1 . S202 C24 

2 . S602 D24 

2 70 PA02 Flag not set after PSA IOT. 

3 71 PB02 Flag not set after PSB IOT. 

If punch turned ON: 1 . S202 C24 

2 . R302 C25 

3 . W520 D25 

4. Rill D26 

5. SI 07 D23 

If punch did not turn ON: 1 • S202 C24 

2. R303CD27 

3. SI 07 D23 

4. S602 D24 

Flag did not clear using PSA. 1 . S202 C24 

Flag did not clear using PSB. 2. S602 D24 

Punch caused illegal interrupt. 1 . Rl 11 C26 

Spurious interrupt. Turn off I/O 2. Rill D21 

devices other than TTY, reader 
and punch . 

No interrupt using PSA. 1 . Rill C26 

No interrupt using PSB. 2. Rill D21 

FLGNOT NO TAPE set with tape in punch . 1 . Rl 1 1 D21 

Check POWER switch wiring . 

NO TAPE not set with no tape in 
punch . Check wiring on punch 
NO TAPE switch. 

No TAPE not set with POWER off. 
Check wiring . 

Remove tape from punch and press 
CONTINUE. 

End of no tape test. 

Flag is set sooner than 1-sec after 1 . R302 C25 

punch is selected . 

416 PRHLT6 End of 1-sec timing tests. 



3 


114 


PA03 


3 


115 


PB03 


4 


240 


P05A 


4 


242 


P05B 


4 


227 


PA05 




230 


PB05 


5 


315 


FLGNO 


5 


341 


NOFLG 


5 


341 


NOFLG 


5 


324 


PHLT10 


5 


3A6 


HLT10A 


6 


413 


EA08 
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TABLE 1 ERROR HALTS AND IDENTIFICATION (continued) 



Test No, 



C (PC) 
1004 



2040 

2461 

2752 
3212 

3367 



Tag Identification 

PRHLT7 Leader and MARK character have been 

punched. Place leader in reader with 
MARK character over drive sprocket. 
Adjust tape between reader and punch for 
minimum binding. Press CONTINUE to 
begin testing . 

SYHLT Illegal sync character read during test 

5 or 6. Press CONTINUE to ignore or 
restart test 5 or 6. Sync character 
should equal 377. 

NOTSYC Illegal sync character read during tests 
1, 2, 3, 4, 7, 8, or 9 . Proceed as in 
above paragraph. Sync should equal 377. 

PHLT1 1 Half as a result of ACS up to halt on 

error. Press CONTINUE to go on. 

Halt which occurs after resyncing the 
program as specified by ACS 3. Press 
CONTINUE to resume current test, or 
restart any desired test. 

PHLT12 C(PC) immediately after loading. 



Suggested 
Module 
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TABLE 2 RESTARTING ADDRESS 

Control Logic Tests 

Test 1 - 21 Illegal Instruction 

Test 2-44 Set Flag With PSA and PSB 

Test 3 - 100 Clear Flag With PSA and PSE 

Test 3A - 130 Clear Flag With PCF 

Test 4 - 200 Interrupt Test 

Test 5 - 300 No Tape Test 

Test 6-400 1 Second Timing Test 

Fast 'Scope Mode - 3100 
Prinout of Punch Speeds - 500 



Data Ch 


eck Te 


ists 


Test 1 


- 


1004 


Test 2 


- 


1100 


Test 3 


- 


1200 


Test 4 


_ 


1300 


Test 5 


- 


1500 


Test 6 


_ 


1700 


Test 7 


- 


2200 


Test 8 


_ 


2300 


Test 9 


_ 


2400 



Resync Routine - 3175 



10. LISTING 
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00034 


741000 




SKP 






00035 


600026 




JMP 


BGNPCH+5 




00036 


440013 




ISZ 


13 




00037 


600026 




JMP 


BGNPCH+5 




00040 


600044 




JMP 


PTST2-2 




00041 


102767 


PEFRR 


JMS 


SCOPE 




00042 


740040 


PE01 


HLT 




/ILLFGAL INSTRUCTION EX! 


00043 


600026 




JMP 


PGNPCH+5 





,EJEC1 



PTPD-9 PACE 



00044 


200?7? 


00045 


040051 


00046 


777776 


00047 


040013 


00050 


750000 


00051 


000000 


00052 


100121 


00053 


700201 


00054 


60006? 


00055 


440013 


00056 


600051 


00057 


102767 


00060 


600100 


00061 


600051 


00062 


102767 


00063 


741000 


00064 


600051 


00065 


200051 


00066 


540272 


00067 


740040 


00070 


740040 


00071 


600051 



/TEST ? 


. SET 


PUMCH 


/ 








LAC 


CKPSA 




OAC 


PSAB 


PTST? 


LA" 


-2 




0*C 


13 




CLA 




/ 






PSAB 









JMS 


ST&L4 




PSf 






Jmp 


pER3 




is? 


13 




JHP 


PSAB 




JMS 


SCOPE 




JMP 


PTST3 




JMP 


PSAB 


PER3 


JMS 
SKP 


SCOPF 




JMP 


PSAB 




LAC 


PSAB 




SAD 


CKPSA 


PA02 


HLT 




PB02 


HLT 






JMP 


PSAB 




.EJECT 



FLAG WITH PSA AND PSf) 



/PSA IOT 



/STALL 4 



/win 

SFC 
/MUST 
/ERROR PATH 



= PSA OR PSB 



B SET 



/SUCCESS PATH 

/ONLY EXIT 

/SCOPE 

/CHECK FOR SCOPE MODE 

/SCOPE 



/FLAG NOT SETTING WITH PSA 
/FLAG NOT SETTING WITH PSB 
/RE-FXECUTE 



p 


TPO-9 PAGE 


3 


t 


ttt 

00100 






00100 


400051 




00101 


700201 




00102 


600101 




00103 


400051 




00104 


700201 




00105 


600116 




00106 


102767 




00107 


741000 




00110 


600100 




00111 


20027? 




00112 


540051 




00113 


740040 




80114 


740040 




00115 


600100 




00116 


102767 




00117 


600130 




00120 


600100 




00121 


000000 




00122 


777703 




00123 


042514 




00124 


102670 




00125 


442514 




00126 


600124 




00127 


620121 



/TEST 3. 
PTST3 



PA03 
PB03 


/ 

OK 3 


/ 

STAL4 



RESET PUNCH FLAG HITH PSA, PSB AMD PCF 
.LOC lf'0 



XCT PSAB 

PSF 

JMP .-1 

XCT PSAB 

PSF 

JMP OK^ 

JMS SCOPE 

SKP 

JMP PTST3 

LAC CKPSA 

SAD PSAB 

HLT 

HLT 

JMP PTST3 

JMS SCnPF 
JMP PTST3A 
JMP PTST3 



LAW -75 
OAC RLKLMT 
JHS STAL70 
IS? RLKLMT 
JMP .-2 
JMP» STAL4 
.EJECT 



/FIRST SET THE FLAG 

/SFT. NOW CLEAR IT 
/SUCCESS PATH 



/ERROR PATH, 
/SCOPE 



FLAG STILL SET 



/FLAG Din NOT CLFaR USING PSA 
/FLAG OIO NOT CLFAR USING PSR 
/RE-FXFCUTF 

/SUCCESS PATH 

/EXIT 
/SCOPE 



/STALL 4 SEC 



•"'TPD- 


-9 PAGE 


4 


1 1 1 1 








0C130 


4001*51 




00131 


700201 




00132 


600131 




0*133 


700202 




00134 


700201 




00135 


600141 




00136 


602767 




00137 


740040 




0*140 


600130 




00141 


102767 




80142 


600200 




00143 


600130 



00200 

00200 
00201 
00202 
00203 
00204 
00285 
00206 
00207 
00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00220 
80221 
00222 
00223 
00224 
00225 
00226 
00227 
00230 



200274 
040001 
700004 
70330? 
700042 
102670 
102670 
102670 
102767 
741000 
600200 
200275 
040001 
703302 
70004? 
400051 
100121 
102767 
741000 
600213 
200272 
540051 
740040 
740040 
600213 



/CLEAR 


FLAT, WI 


:th pce 


PTST3A 


XCT 
PSF 


PS4B 




JMP 


.-1 




pcp 






psr 






JMP 


OK^A 




JMP 


SCOPE 


/ 






PE04 


HLT 






JMP 


PTST3A 


0K3A 


JMS 


SCOPF 




JMP 


PTST4 




JMP 


PTST3A 


/ 






/PUNCH 


INTERRUPT TEST 




.LOC 


: 2^0 


/ 






PTST4 


LAC 


JMP5 




DAC 


1 




CLOE 




CAF 






ION 






JMS 


STAL70 




JMS 


STAL70 




JMS 


STAL70 




JMS 


SCOPE 




SKP 






JMP 


PTST4 


PSRINT 


LAC 


JMP6 




OAC 


1 




CAF 






ION 






XCT 


PSAB 




JMS 


STALi 




JMS 


SCOPE 




SKP 






JMP 


PSRINT 




LAC 


CKPSA 




SAD 


PSAB 


PA05 


HLT 




PB05 


HLT 






JMP 


PSRINT 




.EJECT 



/RET 

/CLEAR 
/SUCCESS PATH 

/ERROR. PCF DID NOT CLEAR FLAG 



/EXIT 
/SCOPE 



/WAIT 210 MS FOR ILLFGAL INT, 



/OK. CHECK FOR SCOPE MODE 



/GET PUNCH GOING 
/ERROR. NO INTERRUPT 

/SCOPE 



/NO INTERRUPT USING PSA 
/NO INTERRUPT USING PSR 



'TPQ-9 PAGE 



00231 


00232 


00233 


00234 


00235 


00236 


00237 


00240 


00241 


00242 


00243 


00244 


00245 


00246 


00247 


00250 


00251 


00252 


00253 


00254 


00255 


00256 


00257 


00260 


00261 


00262 


00263 


00264 


00265 


00266 


00267 


00270 


00271 


00272 


00273 


00274 


00275 



102767 
741000 
600200 
700314 
742010 
741100 
740040 

700314 
740040 
600200 
102767 
741000 
600213 
700314 
503370 
740200 

600255 
700314 
740040 
600213 
20025? 
040001 
70000? 
750004 
742010 
741100 
600046 
200273 
540051 
600300 
600045 

200273 
600045 

700?04 
700?44 
600?31 
600243 



/INTERRUPT SERVICE ROUTINE 


/ 






IH EH 


JMS 
SKP 


SCOPE 




JMP 


PTST4 




IORS 




RTL 






SPA 




P05A 


HIT 






IORS 


P05B 


HLT 






JMP 


PTST4 


TSPFLG 


JMS 
SKP 


SCOPF 




JMP 


PSRINT 




IORS 




AND 


(100000 




S2 A 






JMP 


0K4 




IORS 


P05 C 


HLT 






JMP 


PSRINT 


0K4 


LAC 


P05C-1 




DAC 


1 




10F 






LAS 






RTL 






SPA 






JMP 


PTST? 




LAC 


CKPSR 




SAO 


PSAB 




JMP 


NOTAPE 


/ 

PSPSRT 


JMP 


PTST2-1 


LAC 


CKPSP 




JMP 


PTST?-1 


/ 






CKPSA 


700204 


CKPS" 


700244 


JMP5 


JMP 


I LI. EG 


JMP6 


JMP 


TSPFLG 




.EJECT 



/SCOPE 

/READ I/O STATUS 

/SFE IF PUNCH FLAG IS SET 

/ERROR, PUNCH CAUSEO ILLEGAL INTERRUPT 

/CAE DIDN'T CLEAR FLAG, 

/I/O STATUS 

/SPURIOUS INTERRUPT r>c = I/O STATUS 

/RETURN FROM LEGAL INTERRUPT 

/SCOPE 
/I/O STATUS 

/MAKE SURF PUNCH CAUSED INTERRUPT 

/SUCCESS PATH 
/I/O STATUS 
/SPURIOUS INTERT AC =1/0 STATUS 



/CHECK FOR LOOP ON TESTS 2-4 
/LOOP 



/EXIT 

/DO PSR IOT 



/RESTART HFRE IF LOOPING WITH PSR 



PTPD-9 PAGE 



00300 



00300 


703302 


00301 


777766 


00302 


040534 


00303 


750000 


00304 


700204 


00305 


700201 


00306 


600305 


00307 


700314 


00310 


501362 


00311 


741200 


00312 


600316 


00313 


102767 


00314 


740040 


00315 


600300 


00316 


440534 


00317 


600303 


00320 


102767 


00321 


741000 


00322 


600300 


00323 


740040 


00324 


777766 


00325 


040534 


00326 


703302 


80327 


750000 


00330 


700204 


00331 


700201 


00332 


600331 


00333 


700314 


00334 


501362 


00335 


740200 


00336 


60034? 


00337 


102767 


00340 


740040 


00341 


600326 


0^342 


440534 


00343 


600326 


00344 


102767 


00345 


7 4 0040 


00346 


600324 



/TFST •=•, 
/RE MOVE 
/ 

/ 

NOTAPE 



FLGNOT 



OKNO 



PHLT10 



TSFLG 



NOFLG 
OKFLG 

ML T 10 A 



no tape test 
all tape from punch after halt at location tagged phlti.0 

.LOG 3*0 



CAF 
LAW 



-1? 



OAC WORK 

CLA 

PSA 

PSF 

JMP .-1 

IORS 

AND K400 

SNA 

JMP OKNO 

JMS SCOPF 

HLT 

JMP NOTAPE 

IS? WORK 

JMP NOTAPE+3 

JMS SCOPE 

SKP 

JMP 

HLT 



LAW 

OAC 

CAF 

CLA 

PSA 

PSF 

JMP 

IORS 

ANO 

S2A 

JMP 

JMS 

HLT 

JMP 

IS? 

JMP 

JMS 

HLT 

JMP 



NOTAPE 



-12 
WORK 



K4«0 

OKFLG 
SCOPF 

TSFLG 
WORK 
TSFLG 
SCOPE 



/SEE IF FLAG IS SET 
/SUCCES PATH 

/ERROR. NO TAPE FLAG SET WITH 
/TAPE IN PUNCH, 



/TEST 10 TIMES 

/CHECK FOR SCOPE MODE 

/SCOPE 
/REMOVE TAPE FROM PUNCH AT 
/THIS POINT, PRESS CONTINUE 
/TO TEST NO TAPE FLAG. 



/I/O STATUS 

/NO TAPE FLAG SHOULD BE SET 
/SUCCESS PATH 



/ERROR. 



NO TAPE FLAG NOT SET 



TSFLG-? 



/TEST 10 TIMES 

/END OF NO TAPE TEST 
/SCOPE 



.EJECT 



PT 


PD-9 PAGE 


7 








1 1 


1 1 
















/TEST 6 


1 SEC. TIMING CHFCK 




00400 






.LOC 4^0 




00400 


200417 


PTKT6 


LAC 


POLYlS 




00401 


040534 




OAC 


WORK 




00402 


750000 




CLA 






00403 


700204 




PSA 






00404 


440534 


TST1S 


IS? 


WORK 




00405 


741000 




SKP 






00 406 


600415 




JMP 


PRHLT6 




00407 


700201 




PSF 






00410 


600404 




JMP 


TST1S 




00411 


102767 




JMS 


SCOPE 




00412 


740040 


FA08 


HIT 






00413 


600400 




JMP 


PTST6 




00414 


102767 




JMS 


SCOPE 




00 415 


740040 


PRHLT6 


HLT 






00416 


600400 




JMP 


PTST6 




00417 


413667 


POLYlS 

/ 

/ 

/PUNCH 


-364111 

SPEEO CHECK 




00500 






,LOC 


: 500 




00500 


750004 


PNSPED 


LAS 






00501 


503371 




AND 


(4?:00 




00502 


741200 




SN* 






00503 


600616 




JMP 


ELTST 




00504 


141361 




DEM 


C H A C N T 




00505 


765400 




LAW 


-1?400 




00506 


040534 




DAC 


WORK 




00507 


777507 




LAW 


-271 




00510 


040535 




OAC 


W0»K1 




00511 


700204 




PSA 






00512 


700201 




PSE 






00513 


600512 




JMP 


. -1 




00514 


700704 


PSA1 


PSA 






00515 


441361 




IS? 


CHACNT 




00516 


600520 




JMP 


TI"E 




00517 


740040 


EA09 


HLT 












.EJECT 



/POWER SHOIILH PE OFF 



/SELECT PUNCH 
/START 1 SEC. TIMER 

/SUCCESS PATH 
/MUST NOT SET 



/ERROR. 



DELAY < i SFC. 



/SUCCESS PATH 

/ENn OF LOGIC TEST 

/DO ALL AGAIN 

/l SFC. DELAY CONSTANT 



/ACCEL. TIME 



/GET UP TO SPEFO 



/SELECT PUNCH 
/CHARACTER COUNTER 

/SHOULD NEVER GET HERE 



OTPD-9 



PAGE 



00520 


440534 


00521 


74J.000 


00522 


600526 


00523 


700201 


00524 


600520 


00525 


600514 


00526 


765400 


00527 


040534 


00530 


440535 


00531 


600520 


00532 


100536 


00533 


600571 


00534 


000000 


00535 


000000 


00536 


000000 


00537 


201361 


00540 


742020 


00541 


740020 


00542 


50337? 


00543 


041361 


00544 


140607 


0R545 


440610 


00546 


440613 


0054? 


201361 


00550 


040606 


00551 


744000 


00552 


360613 


00553 


740400 


00554 


600560 


80555 


040606 


00556 


440607 


00557 


600551 


00560 


200607 


00561 


342761 


00562 


060610 


00563 


200636 


00564 


041361 


00565 


220613 


0»566 


540614 


00567 


620536 


00570 


600544 



/8 SEC. 


TIME LOO p 


TIMt 


IS? WORK 




SKP 




JMP TIMEX 




PSF 




JHP TIME 


/ 

TIMEX 


JMP psa 


LAW -12400 




OAC WORK 




IS? WORKl 




JMP TIME 




JMS DEC 


/ 

WORK 


JMP PRSEC 





WORKl 

/ 

DEC 










LAC CHACNT 




RTRJ RaR 




AND (777 




DAC CHACNT 


NXTPWR 


OHM PCW 




IS? TABLE 




IS? PwPTEN 




LAC CHACNT 




OAC CO'JNTB 


SUBAGN 


CLL 




TAD* PWRTEN 




SNL 




JMP OONCON 




OAC COUNTB 




SS? PCW 




JMP SUPAGN 


OONCON 


LAC PCw 




TAD N260 




OAC* TABLE 




LAC COUNTB 




OAC CHACNT 




LAC* PWRTEN 




SAO PHPTEN+1 




JMP« DEC 




JMP NXTPWR 




.EJECT 



/ C H A R AC TER PUNrHED IE SET 



/PRINT TOTAL PUNCHEO/SEC. 



/CONVERT TO DECIMAL 



/PCW = PARTIAL CONVERSION WORD 
/TABLE USED TO STORE DIGITS 



/TRUE r CONVERTED ONF POWER X 10 



/INCREMENT FOR EACH - RESULT 

/SUBTRACT UNTIL RESULT IS 

/MAKE ASCI ! 



/DO NEXT POWER OF TEN 



PTPD-9 



PACE 



00571 


200606 


00572 


342761 


00573 


043237 


00574 


200611 


00575 


043236 


00576 


203235 


00577 


040011 


00600 


103163 


00601 


200615 


00602 


040613 


00603 


200612 


00604 


040610 


00605 


600500 


00606 


000000 


00607 


000000 


00610 


000610 


00611 


000000 


00612 


000610 


00613 


000613 


00614 


777766 


00615 


000613 



PRSEC 


LAC 


COUNTB 




TAO 


N260 




OAC 


INF5+2 




LAC 


TAHLE+1 




OAC 


INE5+1 




LAC 


INF5 




OAC 


11 




JMS 


MSC1 




LAC 


PHRTFN+2 




DAC 


PWRTEN 




LAC 


TARLE*? 




OAC 


TARLF 




JMP 


PNSPEO 


/ 






COUNTB 







PC W 







TARLF 



.-2 




PWPTEN 








777766 




.-? 






•EJECT 



/MAKE ASCII 



/PRINT CHARS. /SEC. 



/-10 



PTPD-9 



9 PAGE 


10 


00616 


750«04 


00617 


503.^73 


00 620 


741200 


00621 


600500 


00622 


202761 


00623 


040701 


00624 


04070? 


00625 


040704 


00626 


700204 


00627 


700201 


00630 


600627 


00631 


700204 


00632 


700201 


00633 


741000 


00634 


600714 


00635 


440704 


00636 


200704 


00637 


740001 


00640 


342760 


00641 


340711 


00642 


740200 


00643 


600661 


00644 


202761 


00645 


040704 


00646 


440702 


0064 7 


200702 


00650 


740001 


00651 


342760 


00652 


340711 


00653 


740200 


00654 


600670 


00655 


202761 


00656 


040702 


00657 


440701 


00660 


600673 


00661 


500000 


00662 


500000 


00663 


500000 


00664 


500000 


00665 


500000 


00666 


500000 


00667 


500000 



f LTST 



/ 

nut 



I I N 



FINUP 



LAS 




AND 


(2 '00 


SN* 




JHP 


PNSPFO 


LAC 


N260 


DAC 


00 


OAC 


m 


OAC 


02 


PSA 




PSF 




JMP 


.-1. 


PSA 




PSF 




SKP 




JHP 


TOUT 


IS? 


02 


LAC 


02 


CMA 




TAD 


ONF 


TAD 


N272 


S2A 




JHP 


F INUP 


LAC 


N260 


OAC 


02 


IS? 


01 


LAC 


01 


CHA 




TAD 


ONF 


TAD 


N272 


SZA 




JMP 


FINUP1 


LAC 


M260 


OAC 


01 


IS? 


00 


JMP 


FINUP2 


AND 





AND 





AND 





AND 





AND 





AND 





AND 





.EJECT 



/WAIT FOR FLAG 

/TRUF = ACCELERATION TIMF 



/SELECT PUNCH 



/GOT FLAG, COMPUTE TIMF 



PTPD-9 



page 11 



00670 


500000 


FlMU^l 


AND 





00671 


500000 




AUli 





00672 


500000 




and 





00673 


200713 


FIMUP2 


lac 


TLKE 


00 6 7 4 


740000 




NOP 




00675 


040534 




DAC 


WORK 


00676 


440534 




IS? 


WORK 


00677 


600676 




JMP 


, - 1 


00700 


60063? 


/ 

00 


JHP 


BIN 


00701 


000260 


260 




00702 


000260 


ni 


.260 




00703 


000256 


/ 

02 


256 




00704 


000260 


260 




00705 


000240 




240 




00706 


000315 




315 




00 707 


00032? 




323 




00710 


000000 


/ 

N272 







00711 


000272 


272 




00712 


000700 


PROAD 


00- 


L 


00713 


777754 


TUSE 

/ 

TOUT 


777 


?54 


00714 


200712 


LAC 


PROAD 


00715 


040011 




DAC 


11 


00716 


103163 




JMS 


MSG1 


00717 


600500 




JMP 


PNSPFO 








.EJECT 



/33 US TO HERE 

/3 US 

/? MORF - 38 US 

/DO 20 LOOPS TO : 60 US 

/100 US TOTAL 

/X 
/X 
/, 

/X 

/SP A CE 

/M 

/S 



/-20 



/PR INT 



PTPO-9 

f 1 1 1 



PAGE 12 



01000 

01000 

1 00 i 
01802 
01003 











1004 
1085 
1006 
1007 
1010 
1011 
01012 
01013 
01014 
01015 
01016 
01017 
01020 
01021 
01022 
01023 
01024 
01025 
81026 
01027 
01030 
01031 
01032 
01033 
01034 



102643 
1 2655 
102643 
740040 



760261 
043013 
102655 
777773 
04251? 
777700 
042514 
042513 
750080 
103037 
442514 
601014 
102767 
741000 
601013 
102440 
442512 
601011 
103106 
601007 
102767 
741000 
601007 
102602 
601100 



/BASIC DATA CHECKS 
.IOC 1000 

/ 

PSACHK JHS PNLEDR 
JHS PNMARK 
JHS PNLEDR 

PRHLT7 HLT 



PN?ERO 



LAW 


261 


DAC 


PRINT6+1 


JMS 


PNMARK 


LAW 


-5 


OAC 


BLSTOR 


LAW 


-108 


OAC 


BLKLMT 


OAC 


BLSTOR*! 


CLA 




JMS 


GOPNCH 


IS? 


BLKLMT 


JMP 


,-3 


JMS 


SCOPE 


SKP 




JMP 


PN?£RO*2 


JMS 


READ 


IS? 


BLSTOR 


JMP 


PN?ERO 


JMS 


REPEAT 


JMP 


PN?ER0-2 


JHS 


SCOPE 


SKP 




JMP 


PN?£RO-2 


JHS 


FINPCH 


JMP 


PNSKFW 



/PUNCH 1,5 FT, LFADER 
/PUNCH MARK CHARACTER 

/PUNCH MORF LEADER. 
/OONF WITH SETUP, PLaCE 
/THE LEADER IN THE REaOER WITH 
/THE MARK CHARACTER UNDER 
/THE TAPE GUIDE, POSITION 
/THE TAPE BETWEEN PUNCH AND 
/THE READER FOR MINIMUM BINDING. 
/PRESS CONTINUE TO BEGIN TESTING 



/-64 DECIMAL 



/PUNCH 2EROS 

/CHECK FOR BLOCK OF 84 

/CHECK FOR SCOPE MODE 



/READ ONE BLOCK 

/CHECK FOR 5 SLOCKS 



/CHECK FOR SCOPE MODE 

/SCOPE 

/READ REST OF DATA 



.EJECT 



PTPQ-9 
mi 
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01 100 



01 100 


760262 


01101 


043013 


01102 


102655 


01103 


777761 


01 104 


042512 


01105 


777700 


01106 


042513 


01107 


777740 


01 110 


042514 


01111 


202760 


01112 


103037 


01113 


442514 


01 114 


601111 


01115 


777740 


01116 


042514 


01 117 


201574 


01120 


103037 


01 121 


442514 


01122 


601117 


01123 


102767 


01 124 


741000 


01125 


601105 


01 126 


102440 


01 127 


442512 


01 130 


601105 


01131 


103106 


01132 


601103 


01133 


102767 


01134 


741000 


01135 


601105 


01136 


102602 


01137 


601200 



/SKEW CHFCK 



/ 

PNSKf W 



CHNLl 



.LOC 1100 



LAW 


26? 


DAC 


PRINT6*1 


JMS 


PNMARK 


LAW 


-17 


OAC 


BLSTOR 


LAW 


-100 


OAC 


BLSTOR+1 


LAW 


-40 


DAC 


BLKLMT 


LAC 


ONE 


JMS 


GOPNCH 


is? 


RLKLMT 


JMP 


.-5 


LAw 


-40 


OAC 


BLKLMf 


LAC 


K2«0 


JMS 


GOPNCH 


IS? 


BLKLMT 


JMP 


.-3 


JMS 


SCOPE 


SKP 




JMP 


CHMLl-2 


JMS 


READ 


IS? 


BLSTOR 


JMP 


CHNL1-? 


JMS 


REPEAT 


JMP 


PNSKEW*3 


JMS 


SCOPF 


SKP 




JMP 


CHNL1-? 


JMS 


F INPCH 


JMP 


ALTN10 


.EJECT 



/-64 DECIMAL 



/-32 
/CHANNEL 8 

/CHECK FOR SCOPE MODE 



/REAO ONE BLOCK 

/CHECK FOR 15 BLOCKS 



p TPD-9 PAGE 14 



01200 






200 





2*1 





202 





203 





204 





205 





206 





207 





210 





211 





212 





213 





214 





215 





216 





217 





220 





221 





1222 





1223 





1224 





1225 





226 





227 





1230 



760263 
043 13 
102655 
777761 
042512 
777700 
042513 
042514 
202516 
103037 
442514 
601210 
102767 
741000 
601203 
102440 
442512 
601205 
103106 
601203 
102767 
741000 
601203 
102602 
601300 



/ALL CHANNELS 




/ 

A L T N 1 


,LOC 


: i'00 


LAW 


263 




DAC 


PRINT6*! 




JHS 


PNMARK 




LAW 


~17 




DAC 


BLSTOR 


AlTPCH 


LAW 


-100 




DAC 


BLSTOR*! 




OAC 


.BLKLMT 




LAC 


TH7 7 




JMS 


GOPNCH 




IS? 


BLKLMT 




JMP 


.-3 




JMS 


Scope 




SKP 






JMP 


ALTPCH-2 




JMS 


READ 




IS? 


PLSTOR 




JMP 


ALTPCH 




JMS 


REPEAT 




JMP 


ALTPCH-2 




JHS 


SCOPE 




SKP 






JHP 


ALTPCH-2 




JMS 


FINPCH 




JMP 


SLOONE 




.EJECT 



/-64 DECIMAL 



/377 



/check for scope mode 



/RFAO ONE PLOCK 

/CHECK FOR !<5 BLOCKS 



/CHECK FOR SCOPE MODE 



/READ REST OF DATA 



PTPO-9 PAGE 15 
t t f t 



01 300 

01300 
01301 
01302 
01303 
01 304 
01 305 
01 306 
01 307 
01 310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 
01332 
01333 
01 334 
01335 
01336 
01337 
01340 
01 341 
01342 
01 343 
01344 
01345 
01346 
01 347 
01 350 
01351 
01352 
01 353 
01 354 
01 355 
01 356 
01357 
01 360 

01 361 



760264 

043013 

102655 

777761 

04251? 

777700 

042513 

042514 

754002 

041573 

777771 

041361 

201573 

740010 

041573 

103037 

442514 

601341 

102767 

741000 

601337 

102440 

442512 

601305 

103106 

601303 

102767 

741000 

601303 

102602 

601500 

777700 

042514 

441361 

601314 

201362 

041573 

777771 

041361 

201573 

740020 

415 73 

103037 

442514 

741000 

60132? 

4 413 61 

601347 

601310 

00 ?■ 



/SI. I'HMG 


ONE 


/ 

SLHCW 


.LOC 1^00 


LAW ?64 




DAC PRINT6+1 




JMS PNi«ARK 




LAW -17 




OAC BLSTOR 


PCHONE 


LAW -l>>0 




DAC BLSTOR+1 




DAC BLKLMt 




CLA!CLL 'CML 




dac Store 


SHIFT1 


LAW -7 




DAC CHACNT 




LAC STORF 




RAL 




DAC STORE 




JMS GOPNCH 




IS? BLKLMT 




JMP CK8X 


CHKENO 


JMS SCOPF 




SKP 




JMP SCPMOD 




JMS READ 




IS? BLSTOR 




JMP PCHONE 




JMS REPEAT 




JMP PCHONE-2 




JMS SCOPE 




SKP 




JMP PCHONE-? 




JMS FINPCH 




JMP SinHRO 


SCPMOD 


LAW -100 




DAC BLKLMT 


CK8X 


IS? CHACNT 




JMP SHIFTl+2 




LAC K4«0 




DAC STORF 




LAW -7 




DAC CHACNT 


SriFTsi 


LAC STORF 




PAR 




OAC STORF 




JMS GOPNOH 




IS? RLKLMT 




SKP 




JMP CHKENO 




IS? CHACNT 




JMP SHf'TAl 




JMP SHIFTl-2 



/-15 



/CHECK FOR BLOCK OF 64 

/CHECK FOR SCOPE MODE 

/CHECK FOR 15 BLOCKS 

/CHECK FOR SCOPE MODE 



/READ REST OF DATA 
/EXIT 



/ 
CHAC* 



PTPo-9 PAGE 16 

01362 000403 



K4»0 



4 00 
.EJECT 



PTPQ-9 PARE 17 



/SLIDING 2ER0, «E*0 AT PUNCH SPEED 



01 500 



01500 


760265 


01501 


043013 


01 502 


102655 


01 503 


201777 


01504 


040001 


01505 


750000 


01506 


040534 


01507 


040535 


01510 


700104 


01511 


102000 


01512 


776177 


01513 


042512 


01514 


201362 


01515 


041573 


01516 


777770 


01517 


041361 


01520 


201573 


01521 


744020 


01522 


041573 


01523 


242516 


01524 


102000 


01525 


102767 


01526 


741000 


01527 


601541 


01530 


442512 


01531 


601541 


01532 


103106 


01533 


601503 


01534 


102767 


01535 


741000 


01536 


601512 


01537 


102530 


01540 


601700 



/ 

SLO2P0 


.101 


; 1500 


LAW 


265 




OAC 


PRINT6+1 




JHS 


PNMARK 




LAC 


I N C R 




OAC 


1 




CLA 






OAC 


WORK 




OAC 


WORKl 




RSA 






JMS 


PNONF 




LAW 


-1601 




DAC 


BLSTOR 


PCH2R0 


LAC 


K400 




OAC 


STORE 


SHIFT0 


LAW 


-10 




OAC 


CHACNT 




LAC 


STORE 




RCfi 






OAC 


STORE 




XOP 


TH7 7 


/ 

CHKBLK 


JMS 


PNONE 


JMS 


SCOPE 




SKP 






JMP 


CHFCK8 




IS? 


BLSTOR 




JMP 


CHFCK8 




JMS 


REPEAT 




JMP 


SLOZRO+3 




JMS 


SCOPE 




SKP 






JMP 


PCH^RO-? 




JMS 


OOMPCH 




JMP 


AOJCH 




.EJECT 



/-960 



/CHECK FOR 10 BLOCKS 
/CHECK FOR LOOP ON TEST 

/SCOPE 
/EXIT 



PTPD-9 



PAGE 18 



01541 


441361 


01542 


601520 


01543 


202760 


01544 


041573 


01545 


777772 


01546 


041361 


01547 


201573 


01550 


744010 


01551 


041573 


01552 


242516 


01553 


102000 


01554 


102767 


01555 


741000 


01556 


601570 


01557 


442512 


01560 


601570 


01561 


103106 


01562 


601503 


01563 


102767 


01564 


741000 


01565 


60151? 


01566 


102530 


01 567 


601300 


01570 


441361 


01571 


601547 


01572 


601 r >14 


01573 


000000 


01574 


000200 


01575 


800277 



CHf CK8 


IS? 


CHACNT 




JMP 


SHIFT0+2 




LAC 


ONiF 




OAC 


STORE 




LAW 


-6 




OAC 


CHACNT 


SHFTA0 


LAC 
RCL 


STORE 




OAC 


STORE 




XOR 


TH77 




JMS 


PNONE 




JMS 


SCOPE 




SKP 






JMP 


CHCK8 




IS? 


8LSTOR 




JMP 


CHCK8 




JMS 


REPEAT 




JMP 


SL02RO+3 




JHS 


SCOPE 


/ 


SKP 






JMP 


PCHHRO-2 


/ 


JMS 


DONPCH 




JMP 


SLOONE 


CHCK8 


IS2 


CHACNT 




JHP 


SHETA0 




JMP 


PCH2RO 


/ 

STORE 







K200 


200 




K277 


277 






■EJECT 



/CHECK FOR 15 BLOCKS 



/SCOPE 

/REAO REST OF DATA 
/EXIT 



PTPD-9 PAGE 19 

♦ 1 1 1 







/TEST ADJACENT CHANNELS 










/READ AT PUNCH S»EED 






01 700 




/ 

ADJCH 


.LOC 1700 






01 700 


76026* 


LAW 


266 






01 701 


043013 




OAC 


PRINT6+1 






01 702 


102655 




JMS 


PNMARK 






01703 


201777 




LAC 


INCR0 






01 704 


040001 




DAC 


1 






01 705 


750000 




CLA 








01706 


040534 




DAC 


W ORK 






01707 


040535 




DAC 


WORKl 






01710 


700104 




RSA 








01711 


102000 




JMS 


PNONE 






01712 


776177 


AOJCNT 


LAW 


-1601 


/-96« 




01713 


042512 




DAC 


BLSTOR 






01714 


201362 




LAC 


K400 






01715 


041573 




DAC 


STORE 






01716 


777770 




LAW 


-10 






01717 


041361 




DAC 


CHACNT 






01720 


777771 




LAW 


-7 






01721 


042514 




OAC 


BLKLMT 






01722 


202516 


FRONES 


LAC 


TH77 


/377 




01723 


102000 




JMS 


PNONF 


/PUNCH ONE FRAME 




01724 


442512 




IS? 


BLSTOR 


/CHECK FOR 15 BLOCKS 


PUNCHED 


01725 


601727 




JMP 


CHFCK7 






01726 


601773 




JHP 


DNAOJ 


/READ REST OF DATA 




01 727 


442514 


CHECK? 


IS? 


BLKLMT 


/CHECK FOR 


7 FRAMES 


01730 


601722 




JHP 


FRONES 


/NOT 7 YET 




01731 


201573 




LAC 


STORE /DROP 


ONE CHANNEL 




01732 


744020 




RCR 








01733 


041573 




DAC 


STORF 






01734 


242516 




XOR 


TH77 






01735 


102000 




JMS 


PNONE 


/PUNCH ONE FRAME 




01 736 


442512 




IS? 


BLSTOR 


/CHECK FOR 


pONF PUN 


01 737 


601741 




JMP 


CKOROP 






01 740 


601773 




JMP 


DNADJ 






01 741 


441361 


CKOROP 


IS? 


chacnt 






01 742 


601720 




JMP 


FRONES-2 


/fjO 7 MORE FRAMES Of 


377 








.EJECT 







OF 377 



!;> TPD-9 



PAGE 



01 743 


202760 


01 744 


041573 


01 745 


777772 


01746 


041361 


01 747 


777771 


01758 


042514 


01751 


202516 


01752 


102000 


01753 


442512 


01754 


601756 


01 755 


6017 73 


01756 


442514 


01757 


601751 


01760 


201573 


01761 


744010 


01762 


041573 


01763 


242516 


01764 


102030 


01765 


442512 


01766 


601770 


01767 


601773 


01770 


441361 


01771 


601747 


01772 


601714 


01773 


103106 


01774 


601703 


01775 


102530 


01 776 


682200 


01 777 


440000 


02000 


000000 


02001 


060017 


02002 


700204 


09003 


200017 


02004 


542511 


02005 


602013 


02006 


102767 


0?007 


602016 


02010 


700201 


02011 


602010 


02012 


622030 


02013 


202510 


02014 


040017 


0^015 


602006 


02016 


440534 


0?017 


200535 


0?020 


740200 


02021 


602061 


0P022 


60 2 5 5 4 



FRONF 



CHCK7 



CKDRP 



DNADJ 



INCR0 
PNONE 



CKSCP 



/ 
TOPBIN 



LAC ONE 
OAC STORE 
L A W -6 

0*0 CH*C NT 
LAW -7 
OAC PLKLMT 
LAC TH77 
JMS pN NE 
IS? PLSTOR 
JMP CHCK7 
JMP DNADJ 
IS? PLKLMT 
JMP FRONF 
LAC STORE 
RCL 

DAC STORE 
XOR TH77 
JHS PNONF 
IS? BLSTOR 
JHP CKORP 
JMP ONAOJ 
IS? CHACNT 
JHP FRONE-2 
JMP AOJCNT+2 
JMS REPEAT 
JHP AOJCH+3 
JMS OONPCH 
JMP PNBNRY 
IS? 8 


OAC» 17 
PSA 

LAC 17 
SAO ENnBIN 
JMP TOPBIN 
JMS SCOPE 
JMP TOPBtN+3 
PSF 

JMP ,-1 
JMP® PMONE 

LAC OATAPL 
OAC 17 
JMP CKSCP 

IS? WORK 
LAC WORK1 
S2A 

JMP sum 

JMP SRVINT 

.EOT 



/PUNCH NE FRAME 

/CHECK FOR 15 RLOCKS 



/CHECK FOR 7 FRAMES OF 377 



/DRP ONE CHANNEL 



/PUNCH ONE FRAME 
/CHECK FOR 15 BLOCKS 



/DO 7 MOP FRAMFS OF 377 
/CHECK FOR LOOP ON TEST 



/LOOP 



/PUNCH ROUTINE 



/CHECK FOR END OF DATA BIN 



/SCOPE 

/START AT TOP AGAIN 



"r D o-9 



PAGE ?1 



07023 
07074 
07025 
07026 
07027 
07030 
07031 
07032 
07033 
02034 
02035 
02036 
07037 

02040 
02041 
02042 
07043 
07044 
07045 
07046 
07047 
07050 
02051 
07052 
07053 
07054 
07055 
07056 
07057 
07060 
07061 
07062 
07063 
07064 
07065 
07066 
07067 
07070 
07071 
07072 
07073 
07074 
07075 
07076 
07077 
07100 
07101 



202507 
740200 
602042 
700112 
740200 
602035 
200534 
740200 
602061 
602057 
542516 
741000 
740040 

442507 
602031 
700117 
560016 

741000 
602067 
20001 6 
542511 
741000 
602054 
202510 
040016 
200534 
740200 
602061 
440535 
602554 
777777 
340534 
040534 
140535 
700104 
602554 
10270? 
200016 
5425H 
741000 
602076 
202510 
040016 
140534 
140535 
700104 
67200W 



/PUP- 
/RFAD 
/ 
READA 



9 PAPER TAPE PUNCH DIAGNOSTIC 
ROUTINF FOR TEST 5 AMD 6 



TAPE 7 



2RON01 
SYHLT 

SYNCY 



TADD1 
SUB1 



SETUP 



LAC 


FL4G 


S£A 




JMP 


SYNCY /IN SYNC 


RRP 




S2A 




JMP 


2RONOT 


LAC 


WORK 


SHA 




JMP 


SUR1 /NO. SUB 


JHP 


TAODl 


SAD 


TH77 


SKP 




HIT 




IS? 


FLAG 


JMP 


HRONOT-4 


RRP 




SAP* 16 


SKP 




JMP 


SETUP /ERROR 


LAC 


16 


SAD 


ENOBIN 


SKP 




JMP 


.+3 


LAC 


DATAPL 


OAC 


16 


LAC 


WORK 


S2A 




JMP 


. *^ 


IS? 


WORKl 


JMP 


SRVINT 


LAW 


-1 


TALI 


WORK 


OAC 


WORK 


02M 


WORKl 


RSA 




JMP 


SRVINT 


JMS 


SETUP4 


LAC 


16 


SAD 


ENOBIN 


SKP 




JMP 


. + 3 


LAC 


OATAPL 


DAC 


16 


nzn 


WORK 


n£M 


WORKl 


RSA 




JMP, 


■ P'-lONE 


.EJECT 



/SEE IE IN SYNC 



/SEE IF 



/GOT SYNC CHAR 
COUNT = 



/YES. ADO 1 
/SYNC MUST = 



377 



/ILLFGAL SYNC, PRFSS CONTINUE TO IGNORE 
/OR RESTART TEST 
/SFT IN SYNC FLAG 

/IN SYNC, READ BUFFER 

/COMPARE 

/OK 



/SUB. 1 FROM COUNT 



/GO TO INTERRUPT ROUTINE 
/PRINT ERROR INFORMATION 



/SELECT 



READER 

/START INTERRUPT SEQUENCF AGAIN 



P T Pn-9 PACE 22 







/PUNCH HI NARY 


COUNT WIT 


09200 




/ 


,LOC 


2200 


07200 


760767 


PNPNRY 


LAW 


26 7 


09201 


043013 




OAC 


PRINT6+1 


09202 


10265? 




JMS 


PNMARK 


09203 


777761 




LAW 


-17 


02204 


042512 




OAC 


BLSTOR 


09205 


141573 




DZM 


STORE 


09286 


777700 




LAW 


-100 


09207 


042514 




DAC 


RLKLMT 


02210 


042513 




OAC 


BLSTOR*l 


09211 


441573 


P1.US1 


IS? 


STORE 


07212 


201.5 73 




LAC 


STORE 


02213 


502516 




AND 


TH77 


09214 


103037 




JHS 


GOPNCH 


09215 


442514 




IS? 


BLKLMT 


09216 


602211 




JMP 


PLUS? 


09217 


102767 




JMS 


SCOPE 


09220 


741000 




SKP 




02221 


602206 




JHP 


PLUSl-3 


09222 


102440 




JHS 


READ 


09223 


442512 




IS? 


BLSTOR 


02224 


60220ft 




JMP 


PLUSl-3 


09225 


103106 




JMS 


REPEAT 


09226 


602203 




JMP 


PNBNRY+3 


09227 


102767 




JMS 


SCOPE 


99238 


741000 




SKP 




09231 


602203 




JMP 


PNRNRY+3 


09232 


10260? 




JMS 


FINPCN 


09233 


602300 




JMP 


PSRNRY 








.EJECT 



/INCREMENT COUNT 

/CHECK FOR SLOCK OF 84 
/CHECK FOR SCOPE MOOT 



/READ A BLOCK 

/CHECK FOR 15 BLOCKS 



/CHECK FOR SCOPE MODE 
/REAP REST OF OATA 



PTPO-9 PARE 


?3 








t t t t 




/PUNCH 
/ 


H I NARY 


COUNT WI 


07300 




.Lnc 


2300 


07300 


76077? 


PS r -<NRY 


LAW 


271-1 


07301 


043013 




OAC 


PRINT6+1 


0?302 


102655 




JMS 


PN^ARK 


07303 


777761 




LAW 


-17 


09304 


042512 




OAC 


RLSTOR 


07305 


1415 73 




o?m 


STORE 


07306 


777700 




LAW 


-100 


07307 


042513 




OAC 


RLSTOR+1 


02310 


042514 




• OAC 


PLKLMT 


07311 


441573 


PlUSlB 


IS? 


STORE 


07312 


201573 




LAC 


STORE 


07313 


502516 




AND 


TH77 


07314 


700244 




PSB 




07315 


700201 




PSF 




07316 


602315 




JMP 


. -1 


07317 


501574 




AND 


K2«0 


07320 


541574 




SAP 


K2'10 


07321 


602327 




JMP 


, +6 


07322 


201573 




LAC 


STORF 


07323 


241574 




XOP 


K200 


07324 


501575 




AND 


K277 


07325 


060017 




DAC» 17 


07326 


602332 




JMp 


, + 4 


07327 


2015 73 




LAC 


STORE 


07330 


501575 




AND 


K277 


07331 


060017 




OAC* 17 


07332 


200017 




LAC 


17 


07333 


542511 




SAO 


ENOBIN 


07334 


602354 




JMP 


RIMTOP 


07335 


442514 


CK64 


IS? 


8LKLMT 


07336 


602311 




JMP 


PLUS18 


07337 


102767 


/ 


JMS 


SCOPE 


07340 


741000 


SKP 




07341 


602306 




JMP 


PLllSlP-3 


07342 


102440 




JMS 


READ 


07343 


442512 




IS? 


RLSTOR 


07344 


602306 




JMP 


PLOS1R-3 


07345 


103106 




JMS 


REPEAT 


07346 


602303 




JMP 


PSRNRY+3 


07347 


102767 




JMS 


SCHPE 


07350 


741000 




SKP 




07351 


602303 




JMP 


PSRNRY+3 


07352 


10260? 




JMS 


FPlPOH 


07353 


602400 




JMP 


P M M S K P - 2 


073=54 


207510 


PINTOP 


LAC 


A T A p L 


07355 


040017 




OAC 


1.7 


07356 


602335 




J M P 
,E Jf 


K 6 4 



/PUNCH BINARY 



/STORE GOOD DATA 

/CHECK EOR 8L0CK OE 64 
/CHECK FOR SCOPE MODF 



/READ A BLOCK 

/CHECK FOR 15 PLOCKS 



/CHECK FOR SCOPE MOOF 



/READ REST OF DATA 
/EXIT 



jfoD-9 PAGE 24 



09400 

02400 
02401 
09402 
02403 
02404 
02405 
02406 
02407 
02410 
02411 
02412 
02413 
02414 
02415 
02416 
02417 
02420 
02421 
02422 
09423 
02424 
02425 
02426 
02427 
02430 
02431 
02432 

02433 

02434 
02435 
02436 
02437 



,LOC 2400 



760271 

043013 
102655 
777740 
042514 
103310 
042512 
202512 
502433 
740001 
042512 
750000 
103037 
202516 
103037 
102767 
741000 
602403 
442512 
741000 
602434 
442514 
602413 
777700 
042513 
132440 
602403 

000007 

102540 
442514 
602405 
602427 



/PUNCH RANDOM STaLL AND BLOCK LENGTHS WITH FI XFO DATA PATTERN 
/ 

/ 

PNHSKP 

NWBLK 



NEWDAT 



ONBLK 



/ 

K7 
/ 
STLL 



LAW 
OAC 
JMS 
LAW 
OAC 
JMS 
DAC 
LAC 
AND 
CMA 
DAC 
CLA 
JMS 
LAC 
JMS 
JMS 
SKP 
JMP 
IS? 
SKP 
JMP 
IS? 
JMP 
LAW 
DAC 
JMS 
JMP 



271 
PR1NT6+1 

PNMARK 

-4-.1 

RLKLMT 

GENRAN 

BLSTOR 

BLSTOR 

K7 

BLSTOR 

GOPNCH 
TH77 
GOPNCH 
SCOPE 

PNHSKP+1 
BLSTOR 

STLL 

BLKLMT 

NEWDAT 

-100 

BLSTOR*! 

READ 

PNHSKP+1 



/RANDOM 
/BLOCK LENGTH 



/CHECK FOR SCOPE MODE 



/PUNCH MORE DATA 



JMS 


STALL 


IS? 


8LKLMT 


JMP 


NWBLK 


JMP 


DNRLK 



•EJECT 



